Voorbeeld van de functie Timer

Dit voorbeeld maakt gebruik van de functie Timer om de toepassing tijdelijk te onderbreken. Het voorbeeld maakt tevens gebruik van DoEvents om tijdens de onderbreking andere processen te genereren.

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Druk op Ja om 5 seconden te pauzeren", 4)) = vbYes Then
    PauseTime = 5    ' Tijdsduur instellen.
    Start = Timer    ' Aanvangstijd instellen.
    Do While Timer < Start + PauseTime
        DoEvents    ' Overdragen aan andere processen.
    Loop
    Finish = Timer    ' Eindtijd instellen.
    TotalTime = Finish - Start    ' Totaaltijd berekenen.
    MsgBox "Pauze gedurende " & TotalTime & " seconden"
Else
    End
End If